home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / ts_str.com / TS_STR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-23  |  6.0 KB  |  109 lines
  1.  {----------------------------------------------------------------------------
  2.                     T U R B O   S T U F F   v 0 2 . 0 1 . 0 0
  3.   ----------------------------------------------------------------------------
  4.                              **** TS_STR Module ****
  5.  
  6.   The source code to Turbo Stuff is provided to REGISTERED USERS ONLY!  Source
  7.   to this unit  file is distributed  only so users of other  versions of Turbo
  8.   Pascal may recompile it for their system.  Please read the License Agreement
  9.   contained in the documentation for conditions on distributing Turbo Stuff.
  10.  
  11.   ----------------------------------------------------------------------------
  12.      (C) Copyright 1989 by Shenandoah Valley Software - All Rights Reserved   
  13.   ----------------------------------------------------------------------------}
  14.  
  15. {$V-,F+}
  16.  
  17. UNIT TS_STR;
  18.  
  19. INTERFACE
  20.  
  21.   CONST     TSVersion = 'v02.01.00';
  22.  
  23.   FUNCTION  Ascii      ( St:string )                         : string  ;
  24.   FUNCTION  AsciiZ     ( St:string )                         : string  ;
  25.   FUNCTION  ATrim      ( St:string; Ch:char )                : string  ;
  26.   FUNCTION  Center     ( St:string; Ch:char; Len:byte )      : string  ;
  27.   FUNCTION  Change     ( St:string; Search,Replace:char )    : string  ;
  28.   FUNCTION  Compare    ( St1,St2:string; UpperCase:boolean ) : boolean ;
  29.   FUNCTION  DelCh      ( St:string; Ch:char )                : string  ;
  30.   FUNCTION  Decrypt    ( St:string )                         : string  ;
  31.   FUNCTION  Dup        ( Ch:char; Len:byte )                 : string  ;
  32.   FUNCTION  DupStr     ( St:string; Len:byte )               : string  ;
  33.   FUNCTION  Encrypt    ( St:string )                         : string  ;
  34.   FUNCTION  FirstLower ( St:string )                         : char    ;
  35.   FUNCTION  FirstUpper ( St:string )                         : char    ;
  36.   FUNCTION  Format     ( St,Mask:string )                    : string  ;
  37.   FUNCTION  IIf        ( TF:boolean; St1,St2:string )        : string  ;
  38.   FUNCTION  IsAlpha    ( St:string )                         : boolean ;
  39.   FUNCTION  IsLower    ( St:string )                         : boolean ;
  40.   FUNCTION  IsUpper    ( St:string )                         : boolean ;
  41.   FUNCTION  Left       ( St:string; Len:byte )               : string  ;
  42.   FUNCTION  LFill      ( St:string; Ch:char; Len:byte )      : string  ;
  43.   FUNCTION  LJust      ( St:string; Len:byte )               : string  ;
  44.   FUNCTION  LoCase     ( Ch:char )                           : char    ;
  45.   FUNCTION  Lower      ( St:string )                         : string  ;
  46.   FUNCTION  LTrim      ( St:string; Ch:char )                : string  ;
  47.   FUNCTION  Number     ( St:string; Num:byte )               : string  ;
  48.   FUNCTION  Proper     ( St:string )                         : string  ;
  49.   FUNCTION  RFill      ( St:string; Ch:char; Len:byte )      : string  ;
  50.   FUNCTION  Right      ( St:string; Len:byte )               : string  ;
  51.   FUNCTION  RJust      ( St:string; Len:byte )               : string  ;
  52.   FUNCTION  Roman      ( Num:integer )                       : string  ;
  53.   FUNCTION  RTrim      ( St:string; Ch:char )                : string  ;
  54.   FUNCTION  Same       ( St1,St2 : string )                  : boolean ;
  55.   FUNCTION  SoundDif   ( St1,St2 : string )                  : byte    ;
  56.   FUNCTION  SoundEx    ( St:string )                         : string  ;
  57.   FUNCTION  Space      ( Len:byte )                          : string  ;
  58.   FUNCTION  Stuff      ( St1,St2:string; Start,Del:byte )    : string  ;
  59.   PROCEDURE Swap       ( var St1,St2 : string );
  60.   FUNCTION  Trim       ( St:string )                         : string  ;
  61.   FUNCTION  Upper      ( St:string )                         : string  ;
  62.   FUNCTION  Words      ( St:string )                         : integer ;
  63.  
  64. {----------------------------------------------------------------------------}
  65.  
  66. IMPLEMENTATION
  67.  
  68.   FUNCTION  Ascii      ; external;   {$L ASCII    }
  69.   FUNCTION  AsciiZ     ; external;   {$L ASCIIZ   }
  70.   FUNCTION  ATrim      ; external;   {$L ATRIM    }
  71.   FUNCTION  Center     ; external;   {$L CENTER   }
  72.   FUNCTION  Change     ; external;   {$L CHANGE   }
  73.   FUNCTION  Compare    ; external;   {$L COMPARE  }
  74.   FUNCTION  DelCh      ; external;   {$L DELCH    }
  75.   FUNCTION  Decrypt    ; external;   {$L DECRYPT  }
  76.   FUNCTION  Dup        ; external;   {$L DUP      }
  77.   FUNCTION  DupStr     ; external;   {$L DUPSTR   }
  78.   FUNCTION  Encrypt    ; external;   {$L ENCRYPT  }
  79.   FUNCTION  FirstLower ; external;   {$L FLOWER   }
  80.   FUNCTION  FirstUpper ; external;   {$L FUPPER   }
  81.   FUNCTION  Format     ; external;   {$L FORMAT   }
  82.   FUNCTION  IIf        ; external;   {$L IIF      }
  83.   FUNCTION  IsAlpha    ; external;   {$L ISALPHA  }
  84.   FUNCTION  IsLower    ; external;   {$L ISLOWER  }
  85.   FUNCTION  IsUpper    ; external;   {$L ISUPPER  }
  86.   FUNCTION  Left       ; external;   {$L LEFT     }
  87.   FUNCTION  LFill      ; external;   {$L LFILL    }
  88.   FUNCTION  LJust      ; external;   {$L LJUST    }
  89.   FUNCTION  LoCase     ; external;   {$L LOCASE   }
  90.   FUNCTION  Lower      ; external;   {$L LOWER    }
  91.   FUNCTION  LTrim      ; external;   {$L LTRIM    }
  92.   FUNCTION  Number     ; external;   {$L NUMBER   }
  93.   FUNCTION  Proper     ; external;   {$L PROPER   }
  94.   FUNCTION  RFill      ; external;   {$L RFILL    }
  95.   FUNCTION  Right      ; external;   {$L RIGHT    }
  96.   FUNCTION  RJust      ; external;   {$L RJUST    }
  97.   FUNCTION  Roman      ; external;   {$L ROMAN    }
  98.   FUNCTION  RTrim      ; external;   {$L RTRIM    }
  99.   FUNCTION  Same       ; external;   {$L SAME     }
  100.   FUNCTION  SoundDif   ; external;   {$L SOUNDDIF }
  101.   FUNCTION  SoundEx    ; external;   {$L SOUNDEX  }
  102.   FUNCTION  Space      ; external;   {$L SPACE    }
  103.   FUNCTION  Stuff      ; external;   {$L STUFF    }
  104.   PROCEDURE Swap       ; external;   {$L SWAP     }
  105.   FUNCTION  Trim       ; external;   {$L TRIM     }
  106.   FUNCTION  Upper      ; external;   {$L UPPER    }
  107.   FUNCTION  Words      ; external;   {$L WORDS    }
  108.  
  109. {$F-} END.